<?php

if(!defined("VL_LEGAL")) die();

/**
 * *** BEGIN LICENSE BLOCK *****
 *  
 * This file is part of FirePHP (http://www.firephp.org/).
 * 
 * Software License Agreement (New BSD License)
 * 
 * Copyright (c) 2006-2008, Christoph Dorn
 * All rights reserved.
 * 
 * Redistribution and use in source and binary forms, with or without modification,
 * are permitted provided that the following conditions are met:
 * 
 *     * Redistributions of source code must retain the above copyright notice,
 *       this list of conditions and the following disclaimer.
 * 
 *     * Redistributions in binary form must reproduce the above copyright notice,
 *       this list of conditions and the following disclaimer in the documentation
 *       and/or other materials provided with the distribution.
 * 
 *     * Neither the name of Christoph Dorn nor the names of its
 *       contributors may be used to endorse or promote products derived from this
 *       software without specific prior written permission.
 * 
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
 * DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
 * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
 * ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 * 
 * ***** END LICENSE BLOCK *****
 * 
 * Modified by vladimmi for VLCMS
 * 
 * @copyright   Copyright (C) 2007-2008 Christoph Dorn
 * @author      Christoph Dorn <christoph@christophdorn.com>
 * @license     http://www.opensource.org/licenses/bsd-license.php
 * @package     FirePHP
 */


/**
 * Sends the given data to the FirePHP Firefox Extension.
 * The data can be displayed in the Firebug Console or in the
 * "Server" request tab.
 * 
 * For more information see: http://www.firephp.org/
 * 
 * @copyright   Copyright (C) 2007-2008 Christoph Dorn
 * @author      Christoph Dorn <christoph@christophdorn.com>
 * @license     http://www.opensource.org/licenses/bsd-license.php
 * @package     FirePHP
 */
class FirePHP {
	
	/**
	 * FirePHP version
	 *
	 * @var string
	 */
	const VERSION = '0.2.1';
	
	/**
	 * Firebug LOG level
	 *
	 * Logs a message to firebug console.
	 * 
	 * @var string
	 */
	const LOG = 'LOG';
	
	/**
	 * Firebug INFO level
	 *
	 * Logs a message to firebug console and displays an info icon before the message.
	 * 
	 * @var string
	 */
	const INFO = 'INFO';
	
	/**
	 * Firebug WARN level
	 *
	 * Logs a message to firebug console, displays an warning icon before the message and colors the line turquoise.
	 * 
	 * @var string
	 */
	const WARN = 'WARN';
	
	/**
	 * Firebug ERROR level
	 *
	 * Logs a message to firebug console, displays an error icon before the message and colors the line yellow. Also increments the firebug error count.
	 * 
	 * @var string
	 */
	const ERROR = 'ERROR';
	
	/**
	 * Dumps a variable to firebug's server panel
	 *
	 * @var string
	 */
	const DUMP = 'DUMP';
	
	/**
	 * Displays a stack trace in firebug console
	 *
	 * @var string
	 */
	const TRACE = 'TRACE';
	
	/**
	 * Displays an exception in firebug console
	 * 
	 * Increments the firebug error count.
	 *
	 * @var string
	 */
	const EXCEPTION = 'EXCEPTION';
	
	/**
	 * Displays an table in firebug console
	 *
	 * @var string
	 */
	const TABLE = 'TABLE';
	
	/**
	 * Starts a group in firebug console
	 * 
	 * @var string
	 */
	const GROUP_START = 'GROUP_START';
	
	/**
	 * Ends a group in firebug console
	 * 
	 * @var string
	 */
	const GROUP_END = 'GROUP_END';
	
	/**
	 * Singleton instance of FirePHP
	 *
	 * @var FirePHP
	 */
	protected static $instance = null;
	
	/**
	 * Wildfire protocol message index
	 *
	 * @var int
	 */
	protected $messageIndex = 1;
	
	/**
	 * Options for the library
	 * 
	 * @var array
	 */
	protected $options = array();
	
	/**
	 * Filters used to exclude object members when encoding
	 * 
	 * @var array
	 */
	protected $objectFilters = array();
	
	/**
	 * A stack of objects used to detect recursion during object encoding
	 * 
	 * @var object
	 */
	protected $objectStack = array();
	
	/**
	 * Flag to enable/disable logging
	 * 
	 * @var boolean
	 */
	protected $enabled = true;
	
	/**
	 * Made for dumping associative arrays
	 */
	function assocTable($Label, $Table) {
		$t=array();
		$t[]=array("Ключ", "Значение");
		foreach($Table as $key=>$value)
			$t[]=array($key, $value);
		$this->table($Label, $t);
	}
	
	/**
	 * The object constructor
	 */
	function __construct() {
		$this->options['maxObjectDepth'] = 10;
		$this->options['maxArrayDepth'] = 20;
		$this->options['useNativeJsonEncode'] = true;
		$this->options['includeLineNumbers'] = true;
	}
	
	/**
	 * When the object gets serialized only include specific object members.
	 * 
	 * @return array
	 */  
	public function __sleep() {
		return array('options','objectFilters','enabled');
	}
	
	/**
	 * Gets singleton instance of FirePHP
	 *
	 * @param boolean $AutoCreate
	 * @return FirePHP
	 */
	public static function getInstance($AutoCreate=false) {
		if($AutoCreate===true && !self::$instance) {
			self::init();
		}
		return self::$instance;
	}
	
	/**
	 * Creates FirePHP object and stores it for singleton access
	 *
	 * @return FirePHP
	 */
	public static function init() {
		return self::$instance = new self();
	}
	
	/**
	 * Enable and disable logging to Firebug
	 * 
	 * @param boolean $Enabled TRUE to enable, FALSE to disable
	 * @return void
	 */
	public function setEnabled($Enabled) {
		$this->enabled = $Enabled;
	}
	
	/**
	 * Check if logging is enabled
	 * 
	 * @return boolean TRUE if enabled
	 */
	public function getEnabled() {
		return $this->enabled;
	}
	
	/**
	 * Specify a filter to be used when encoding an object
	 * 
	 * Filters are used to exclude object members.
	 * 
	 * @param string $Class The class name of the object
	 * @param array $Filter An array or members to exclude
	 * @return void
	 */
	public function setObjectFilter($Class, $Filter) {
		$this->objectFilters[$Class] = $Filter;
	}
	
	/**
	 * Set some options for the library
	 * 
	 * Options:
	 *  - maxObjectDepth: The maximum depth to traverse objects (default: 10)
	 *  - maxArrayDepth: The maximum depth to traverse arrays (default: 20)
	 *  - useNativeJsonEncode: If true will use json_encode() (default: true)
	 *  - includeLineNumbers: If true will include line numbers and filenames (default: true)
	 * 
	 * @param array $Options The options to be set
	 * @return void
	 */
	public function setOptions($Options) {
		$this->options = array_merge($this->options,$Options);
	}
	
	/**
	 * Register FirePHP as your error handler
	 * 
	 * Will throw exceptions for each php error.
	 */
	public function registerErrorHandler()
	{
		//NOTE: The following errors will not be caught by this error handler:
		//      E_ERROR, E_PARSE, E_CORE_ERROR,
		//      E_CORE_WARNING, E_COMPILE_ERROR,
		//      E_COMPILE_WARNING, E_STRICT
		
		set_error_handler(array($this,'errorHandler'));     
	}
	
	/**
	 * FirePHP's error handler
	 * 
	 * Throws exception for each php error that will occur.
	 *
	 * @param int $errno
	 * @param string $errstr
	 * @param string $errfile
	 * @param int $errline
	 * @param array $errcontext
	 */
	public function errorHandler($errno, $errstr, $errfile, $errline, $errcontext)
	{
		// Don't throw exception if error reporting is switched off
		if (error_reporting() == 0) {
			return;
		}
		// Only throw exceptions for errors we are asking for
		if (error_reporting() & $errno) {
			throw new ErrorException($errstr, 0, $errno, $errfile, $errline);
		}
	}
	
	/**
	 * Register FirePHP as your exception handler
	 */
	public function registerExceptionHandler()
	{
		set_exception_handler(array($this,'exceptionHandler'));     
	}
	
	/**
	 * FirePHP's exception handler
	 * 
	 * Logs all exceptions to your firebug console and then stops the script.
	 *
	 * @param Exception $Exception
	 * @throws Exception
	 */
	function exceptionHandler($Exception) {
		$this->fb($Exception);
	}
	
	/**
	 * Set custom processor url for FirePHP
	 *
	 * @param string $URL
	 */    
	public function setProcessorUrl($URL)
	{
		$this->setHeader('X-FirePHP-ProcessorURL', $URL);
	}
	
	/**
	 * Set custom renderer url for FirePHP
	 *
	 * @param string $URL
	 */
	public function setRendererUrl($URL)
	{
		$this->setHeader('X-FirePHP-RendererURL', $URL);
	}
	
	/**
	 * Start a group for following messages
	 *
	 * @param string $Name
	 * @return true
	 * @throws Exception
	 */
	public function group($Name) {
		return $this->fb(null, $Name, FirePHP::GROUP_START);
	}
	
	/**
	 * Ends a group you have started before
	 *
	 * @return true
	 * @throws Exception
	 */
	public function groupEnd() {
		return $this->fb(null, null, FirePHP::GROUP_END);
	}
	
	/**
	 * Log object with label to firebug console
	 *
	 * @see FirePHP::LOG
	 * @param mixes $Object
	 * @param string $Label
	 * @return true
	 * @throws Exception
	 */
	public function log($Object, $Label=null) {
		return $this->fb($Object, $Label, FirePHP::LOG);
	} 
	
	/**
	 * Log object with label to firebug console
	 *
	 * @see FirePHP::INFO
	 * @param mixes $Object
	 * @param string $Label
	 * @return true
	 * @throws Exception
	 */
	public function info($Object, $Label=null) {
		return $this->fb($Object, $Label, FirePHP::INFO);
	} 
	
	/**
	 * Log object with label to firebug console
	 *
	 * @see FirePHP::WARN
	 * @param mixes $Object
	 * @param string $Label
	 * @return true
	 * @throws Exception
	 */
	public function warn($Object, $Label=null) {
		return $this->fb($Object, $Label, FirePHP::WARN);
	} 
	
	/**
	 * Log object with label to firebug console
	 *
	 * @see FirePHP::ERROR
	 * @param mixes $Object
	 * @param string $Label
	 * @return true
	 * @throws Exception
	 */
	public function error($Object, $Label=null) {
		return $this->fb($Object, $Label, FirePHP::ERROR);
	} 
	
	/**
	 * Dumps key and variable to firebug server panel
	 *
	 * @see FirePHP::DUMP
	 * @param string $Key
	 * @param mixed $Variable
	 * @return true
	 * @throws Exception
	 */
	public function dump($Key, $Variable) {
		if(is_array($Variable)) {
			$content="\r\n";
			foreach($Variable as $vkey=>$vvalue) {
				$content.=$vkey."='".$vvalue."'\r\n";
			}
			return $this->fb($content, $Key, FirePHP::INFO);
		} else return $this->fb($Variable, $Key, FirePHP::INFO);
	}
	
	/**
	 * Log a trace in the firebug console
	 *
	 * @see FirePHP::TRACE
	 * @param string $Label
	 * @return true
	 * @throws Exception
	 */
	public function trace($Label) {
		return $this->fb($Label, FirePHP::TRACE);
	} 
	
	/**
	 * Log a table in the firebug console
	 *
	 * @see FirePHP::TABLE
	 * @param string $Label
	 * @param string $Table
	 * @return true
	 * @throws Exception
	 */
	public function table($Label, $Table) {
		return $this->fb($Table, $Label, FirePHP::TABLE);
	}
	
	/**
	 * Check if FirePHP is installed on client
	 *
	 * @return boolean
	 */
	public function detectClientExtension() {
		/* Check if FirePHP is installed on client */
		if(!@preg_match_all('/\sFirePHP\/([\.|\d]*)\s?/si',$this->getUserAgent(),$m) ||
				!version_compare($m[1][0],'0.0.6','>=')) {
			return false;
		}
		return true;    
	}
	
	/**
	 * Log varible to Firebug
	 * 
	 * @see http://www.firephp.org/Wiki/Reference/Fb
	 * @param mixed $Object The variable to be logged
	 * @return true Return TRUE if message was added to headers, FALSE otherwise
	 * @throws Exception
	 */
	public function fb($Object) {
		
		if(!$this->enabled) {
			return false;
		}
		
		if (headers_sent($filename, $linenum)) {
			throw $this->newException('Headers already sent in '.$filename.' on line '.$linenum.'. Cannot send log data to FirePHP. You must have Output Buffering enabled via ob_start() or output_buffering ini directive.');
		}
		
		$Type = null;
		$Label = null;
		
		if(func_num_args()==1) {
		} else
			if(func_num_args()==2) {
				switch(func_get_arg(1)) {
					case self::LOG:
					case self::INFO:
					case self::WARN:
					case self::ERROR:
					case self::DUMP:
					case self::TRACE:
					case self::EXCEPTION:
					case self::TABLE:
					case self::GROUP_START:
					case self::GROUP_END:
						$Type = func_get_arg(1);
						break;
					default:
						$Label = func_get_arg(1);
						break;
				}
			} else
				if(func_num_args()==3) {
					$Type = func_get_arg(2);
					$Label = func_get_arg(1);
				} else {
					throw $this->newException('Wrong number of arguments to fb() function!');
				}
		
		
		if(!$this->detectClientExtension()) {
			return false;
		}
		
		$meta = array();
		$skipFinalObjectEncode = false;
		
		if($Object instanceof Exception) {
			
			$meta['file'] = $this->_escapeTraceFile($Object->getFile());
			$meta['line'] = $Object->getLine();
			
			$trace = $Object->getTrace();
			if($Object instanceof ErrorException
					&& isset($trace[0]['function'])
					&& $trace[0]['function']=='errorHandler'
					&& isset($trace[0]['class'])
					&& $trace[0]['class']=='FirePHP') {
				
				$severity = false;
				switch($Object->getSeverity()) {
					case E_WARNING: $severity = 'E_WARNING'; break;
					case E_NOTICE: $severity = 'E_NOTICE'; break;
					case E_USER_ERROR: $severity = 'E_USER_ERROR'; break;
					case E_USER_WARNING: $severity = 'E_USER_WARNING'; break;
					case E_USER_NOTICE: $severity = 'E_USER_NOTICE'; break;
					case E_STRICT: $severity = 'E_STRICT'; break;
					case E_RECOVERABLE_ERROR: $severity = 'E_RECOVERABLE_ERROR'; break;
					case E_DEPRECATED: $severity = 'E_DEPRECATED'; break;
					case E_USER_DEPRECATED: $severity = 'E_USER_DEPRECATED'; break;
				}
				
				$Object = array('Class'=>get_class($Object),
						'Message'=>$severity.': '.$Object->getMessage(),
						'File'=>$this->_escapeTraceFile($Object->getFile()),
						'Line'=>$Object->getLine(),
						'Type'=>'trigger',
						'Trace'=>$this->_escapeTrace(array_splice($trace,2)));
				$skipFinalObjectEncode = true;
			} else {
				$Object = array('Class'=>get_class($Object),
						'Message'=>$Object->getMessage(),
						'File'=>$this->_escapeTraceFile($Object->getFile()),
						'Line'=>$Object->getLine(),
						'Type'=>'throw',
						'Trace'=>$this->_escapeTrace($trace));
				$skipFinalObjectEncode = true;
			}
			$Type = self::EXCEPTION;
			
		} else
			if($Type==self::TRACE) {
				
				$trace = debug_backtrace();
				if(!$trace) return false;
				for( $i=0 ; $i<sizeof($trace) ; $i++ ) {
					
					if(isset($trace[$i]['class'])
							&& isset($trace[$i]['file'])
							&& ($trace[$i]['class']=='FirePHP'
								|| $trace[$i]['class']=='FB')
							&& (substr($this->_standardizePath($trace[$i]['file']),-18,18)=='FirePHPCore/fb.php'
								|| substr($this->_standardizePath($trace[$i]['file']),-29,29)=='FirePHPCore/FirePHP.class.php')) {
						/* Skip - FB::trace(), FB::send(), $firephp->trace(), $firephp->fb() */
					} else
						if(isset($trace[$i]['class'])
								&& isset($trace[$i+1]['file'])
								&& $trace[$i]['class']=='FirePHP'
								&& substr($this->_standardizePath($trace[$i+1]['file']),-18,18)=='FirePHPCore/fb.php') {
							/* Skip fb() */
						} else
							if($trace[$i]['function']=='fb'
									|| $trace[$i]['function']=='trace'
									|| $trace[$i]['function']=='send') {
								$Object = array('Class'=>isset($trace[$i]['class'])?$trace[$i]['class']:'',
										'Type'=>isset($trace[$i]['type'])?$trace[$i]['type']:'',
										'Function'=>isset($trace[$i]['function'])?$trace[$i]['function']:'',
										'Message'=>$trace[$i]['args'][0],
										'File'=>isset($trace[$i]['file'])?$this->_escapeTraceFile($trace[$i]['file']):'',
										'Line'=>isset($trace[$i]['line'])?$trace[$i]['line']:'',
										'Args'=>isset($trace[$i]['args'])?$this->encodeObject($trace[$i]['args']):'',
										'Trace'=>$this->_escapeTrace(array_splice($trace,$i+1)));
								
								$skipFinalObjectEncode = true;
								$meta['file'] = isset($trace[$i]['file'])?$this->_escapeTraceFile($trace[$i]['file']):'';
								$meta['line'] = isset($trace[$i]['line'])?$trace[$i]['line']:'';
								break;
							}
				}
				
			} else
				if($Type==self::TABLE) {
					
					if(isset($Object[0]) && is_string($Object[0])) {
						$Object[1] = $this->encodeTable($Object[1]);
					} else {
						$Object = $this->encodeTable($Object);
					}
					
					$skipFinalObjectEncode = true;
					
				} else {
					if($Type===null) {
						$Type = self::LOG;
					}
				}
		
		if($this->options['includeLineNumbers']) {
			if(!isset($meta['file']) || !isset($meta['line'])) {
				
				$trace = debug_backtrace();
				for( $i=0 ; $trace && $i<sizeof($trace) ; $i++ ) {
					
					if(isset($trace[$i]['class'])
							&& isset($trace[$i]['file'])
							&& ($trace[$i]['class']=='FirePHP'
								|| $trace[$i]['class']=='FB')
							&& (substr($this->_standardizePath($trace[$i]['file']),-18,18)=='FirePHPCore/fb.php'
								|| substr($this->_standardizePath($trace[$i]['file']),-29,29)=='FirePHPCore/FirePHP.class.php')) {
						/* Skip - FB::trace(), FB::send(), $firephp->trace(), $firephp->fb() */
					} else
						if(isset($trace[$i]['class'])
								&& isset($trace[$i+1]['file'])
								&& $trace[$i]['class']=='FirePHP'
								&& substr($this->_standardizePath($trace[$i+1]['file']),-18,18)=='FirePHPCore/fb.php') {
							/* Skip fb() */
						} else
							if(isset($trace[$i]['file'])
									&& substr($this->_standardizePath($trace[$i]['file']),-18,18)=='FirePHPCore/fb.php') {
								/* Skip FB::fb() */
							} else {
								$meta['file'] = isset($trace[$i]['file'])?$this->_escapeTraceFile($trace[$i]['file']):'';
								$meta['line'] = isset($trace[$i]['line'])?$trace[$i]['line']:'';
								break;
							}
				}      
				
			}
		} else {
			unset($meta['file']);
			unset($meta['line']);
		}
		
		$this->setHeader('X-Wf-Protocol-1','http://meta.wildfirehq.org/Protocol/JsonStream/0.2');
		$this->setHeader('X-Wf-1-Plugin-1','http://meta.firephp.org/Wildfire/Plugin/FirePHP/Library-FirePHPCore/'.self::VERSION);
		
		$structure_index = 1;
		if($Type==self::DUMP) {
			$structure_index = 2;
			$this->setHeader('X-Wf-1-Structure-2','http://meta.firephp.org/Wildfire/Structure/FirePHP/Dump/0.1');
		} else {
			$this->setHeader('X-Wf-1-Structure-1','http://meta.firephp.org/Wildfire/Structure/FirePHP/FirebugConsole/0.1');
		}
		
		if($Type==self::DUMP) {
			$msg = '{"'.$Label.'":'.$this->jsonEncode($Object, $skipFinalObjectEncode).'}';
		} else {
			$msg_meta = array('Type'=>$Type);
			if($Label!==null) {
				$msg_meta['Label'] = $Label;
			}
			if(isset($meta['file'])) {
				$msg_meta['File'] = $meta['file'];
			}
			if(isset($meta['line'])) {
				$msg_meta['Line'] = $meta['line'];
			}
			$msg = '['.$this->jsonEncode($msg_meta).','.$this->jsonEncode($Object, $skipFinalObjectEncode).']';
		}
		
		$parts = explode("\n",chunk_split($msg, 5000, "\n"));
		
		for( $i=0 ; $i<count($parts) ; $i++) {
			
			$part = $parts[$i];
			if ($part) {
				
				if(count($parts)>2) {
					// Message needs to be split into multiple parts
					$this->setHeader('X-Wf-1-'.$structure_index.'-'.'1-'.$this->messageIndex,
							(($i==0)?strlen($msg):'')
							. '|' . $part . '|'
							. (($i<count($parts)-2)?'\\':''));
				} else {
					$this->setHeader('X-Wf-1-'.$structure_index.'-'.'1-'.$this->messageIndex,
							strlen($part) . '|' . $part . '|');
				}
				
				$this->messageIndex++;
				
				if ($this->messageIndex > 99999) {
					throw new Exception('Maximum number (99,999) of messages reached!');             
				}
			}
		}
		
		$this->setHeader('X-Wf-1-Index',$this->messageIndex-1);
		
		return true;
	}
	
	/**
	 * Standardizes path for windows systems.
	 *
	 * @param string $Path
	 * @return string
	 */
	protected function _standardizePath($Path) {
		return preg_replace('/\\\\+/','/',$Path);    
	}
	
	/**
	 * Escape trace path for windows systems
	 *
	 * @param array $Trace
	 * @return array
	 */
	protected function _escapeTrace($Trace) {
		if(!$Trace) return $Trace;
		for( $i=0 ; $i<sizeof($Trace) ; $i++ ) {
			if(isset($Trace[$i]['file'])) {
				$Trace[$i]['file'] = $this->_escapeTraceFile($Trace[$i]['file']);
			}
			if(isset($Trace[$i]['args'])) {
				$Trace[$i]['args'] = $this->encodeObject($Trace[$i]['args']);
			}
		}
		return $Trace;    
	}
	
	/**
	 * Escape file information of trace for windows systems
	 *
	 * @param string $File
	 * @return string
	 */
	protected function _escapeTraceFile($File) {
		/* Check if we have a windows filepath */
		if(strpos($File,'\\')) {
			/* First strip down to single \ */
			
			$file = preg_replace('/\\\\+/','\\',$File);
			
			return $file;
		}
		return $File;
	}
	
	/**
	 * Send header
	 *
	 * @param string $Name
	 * @param string_type $Value
	 */
	protected function setHeader($Name, $Value) {
		return header($Name.': '.$Value);
	}
	
	/**
	 * Get user agent
	 *
	 * @return string|false
	 */
	protected function getUserAgent() {
		if(!isset($_SERVER['HTTP_USER_AGENT'])) return false;
		return $_SERVER['HTTP_USER_AGENT'];
	}
	
	/**
	 * Returns a new exception
	 *
	 * @param string $Message
	 * @return Exception
	 */
	protected function newException($Message) {
		return new Exception($Message);
	}
	
	/**
	 * Encode an object into a JSON string
	 * 
	 * Uses PHP's jeson_encode() if available
	 * 
	 * @param object $Object The object to be encoded
	 * @return string The JSON string
	 */
	public function jsonEncode($Object, $skipObjectEncode=false)
	{
		if(!$skipObjectEncode) {
			$Object = $this->encodeObject($Object);
		}
		
		if(function_exists('json_encode')
				&& $this->options['useNativeJsonEncode']!=false) {
			
			return json_encode($Object);
		} else {
			return $this->json_encode($Object);
		}
	}
	
	/**
	 * Encodes a table by encoding each row and column with encodeObject()
	 * 
	 * @param array $Table The table to be encoded
	 * @return array
	 */  
	protected function encodeTable($Table) {
		if(!$Table) return $Table;
		for( $i=0 ; $i<count($Table) ; $i++ ) {
			if(is_array($Table[$i])) {
				for( $j=0 ; $j<count($Table[$i]) ; $j++ ) {
					$Table[$i][$j] = $this->encodeObject($Table[$i][$j]);
				}
			}
		}
		return $Table;
	}
	
	/**
	 * Encodes an object including members with
	 * protected and private visibility
	 * 
	 * @param Object $Object The object to be encoded
	 * @param int $Depth The current traversal depth
	 * @return array All members of the object
	 */
	protected function encodeObject($Object, $ObjectDepth = 1, $ArrayDepth = 1)
	{
		$return = array();
		
		if (is_resource($Object)) {
			
			return '** '.(string)$Object.' **';
			
		} else    
			if (is_object($Object)) {
				
				if ($ObjectDepth > $this->options['maxObjectDepth']) {
					return '** Max Object Depth ('.$this->options['maxObjectDepth'].') **';
				}
				
				foreach ($this->objectStack as $refVal) {
					if ($refVal === $Object) {
						return '** Recursion ('.get_class($Object).') **';
					}
				}
				array_push($this->objectStack, $Object);
				
				$return['__className'] = $class = get_class($Object);
				
				$reflectionClass = new ReflectionClass($class);  
				$properties = array();
				foreach( $reflectionClass->getProperties() as $property) {
					$properties[$property->getName()] = $property;
				}
				
				$members = (array)$Object;
				
				foreach( $properties as $raw_name => $property ) {
					
					$name = $raw_name;
					if($property->isStatic()) {
						$name = 'static:'.$name;
					}
					if($property->isPublic()) {
						$name = 'public:'.$name;
					} else
						if($property->isPrivate()) {
							$name = 'private:'.$name;
							$raw_name = "\0".$class."\0".$raw_name;
						} else
							if($property->isProtected()) {
								$name = 'protected:'.$name;
								$raw_name = "\0".'*'."\0".$raw_name;
							}
					
					if(!(isset($this->objectFilters[$class])
								&& is_array($this->objectFilters[$class])
								&& in_array($raw_name,$this->objectFilters[$class]))) {
						
						if(array_key_exists($raw_name,$members)
								&& !$property->isStatic()) {
							
							$return[$name] = $this->encodeObject($members[$raw_name], $ObjectDepth + 1, 1);      
							
						} else {
							if(method_exists($property,'setAccessible')) {
								$property->setAccessible(true);
								$return[$name] = $this->encodeObject($property->getValue($Object), $ObjectDepth + 1, 1);
							} else
								if($property->isPublic()) {
									$return[$name] = $this->encodeObject($property->getValue($Object), $ObjectDepth + 1, 1);
								} else {
									$return[$name] = '** Need PHP 5.3 to get value **';
								}
						}
					} else {
						$return[$name] = '** Excluded by Filter **';
					}
				}
				
				// Include all members that are not defined in the class
				// but exist in the object
				foreach( $members as $raw_name => $value ) {
					
					$name = $raw_name;
					
					if ($name{0} == "\0") {
						$parts = explode("\0", $name);
						$name = $parts[2];
					}
					
					if(!isset($properties[$name])) {
						$name = 'undeclared:'.$name;
						
						if(!(isset($this->objectFilters[$class])
									&& is_array($this->objectFilters[$class])
									&& in_array($raw_name,$this->objectFilters[$class]))) {
							
							$return[$name] = $this->encodeObject($value, $ObjectDepth + 1, 1);
						} else {
							$return[$name] = '** Excluded by Filter **';
						}
					}
				}
				
				array_pop($this->objectStack);
				
			} elseif (is_array($Object)) {
				
				if ($ArrayDepth > $this->options['maxArrayDepth']) {
					return '** Max Array Depth ('.$this->options['maxArrayDepth'].') **';
				}
				
				foreach ($Object as $key => $val) {
					
					// Encoding the $GLOBALS PHP array causes an infinite loop
					// if the recursion is not reset here as it contains
					// a reference to itself. This is the only way I have come up
					// with to stop infinite recursion in this case.
					if($key=='GLOBALS'
							&& is_array($val)
							&& array_key_exists('GLOBALS',$val)) {
						$val['GLOBALS'] = '** Recursion (GLOBALS) **';
					}
					
					$return[$key] = $this->encodeObject($val, 1, $ArrayDepth + 1);
				}
			} else {
				if(self::is_utf8($Object)) {
					return $Object;
				} else {
					return utf8_encode($Object);
				}
			}
		return $return;
	}
	
	/**
	 * Returns true if $string is valid UTF-8 and false otherwise.
	 *
	 * @param mixed $str String to be tested
	 * @return boolean
	 */
	protected static function is_utf8($str) {
		$c=0; $b=0;
		$bits=0;
		$len=strlen($str);
		for($i=0; $i<$len; $i++){
			$c=ord($str[$i]);
			if($c > 128){
				if(($c >= 254)) return false;
				elseif($c >= 252) $bits=6;
				elseif($c >= 248) $bits=5;
				elseif($c >= 240) $bits=4;
				elseif($c >= 224) $bits=3;
				elseif($c >= 192) $bits=2;
				else return false;
				if(($i+$bits) > $len) return false;
				while($bits > 1){
					$i++;
					$b=ord($str[$i]);
					if($b < 128 || $b > 191) return false;
					$bits--;
				}
			}
		}
		return true;
	} 
	
	/**
	 * Converts to and from JSON format.
	 *
	 * JSON (JavaScript Object Notation) is a lightweight data-interchange
	 * format. It is easy for humans to read and write. It is easy for machines
	 * to parse and generate. It is based on a subset of the JavaScript
	 * Programming Language, Standard ECMA-262 3rd Edition - December 1999.
	 * This feature can also be found in  Python. JSON is a text format that is
	 * completely language independent but uses conventions that are familiar
	 * to programmers of the C-family of languages, including C, C++, C#, Java,
	 * JavaScript, Perl, TCL, and many others. These properties make JSON an
	 * ideal data-interchange language.
	 *
	 * This package provides a simple encoder and decoder for JSON notation. It
	 * is intended for use with client-side Javascript applications that make
	 * use of HTTPRequest to perform server communication functions - data can
	 * be encoded into JSON notation for use in a client-side javascript, or
	 * decoded from incoming Javascript requests. JSON format is native to
	 * Javascript, and can be directly eval()'ed with no further parsing
	 * overhead
	 *
	 * All strings should be in ASCII or UTF-8 format!
	 *
	 * LICENSE: Redistribution and use in source and binary forms, with or
	 * without modification, are permitted provided that the following
	 * conditions are met: Redistributions of source code must retain the
	 * above copyright notice, this list of conditions and the following
	 * disclaimer. Redistributions in binary form must reproduce the above
	 * copyright notice, this list of conditions and the following disclaimer
	 * in the documentation and/or other materials provided with the
	 * distribution.
	 *
	 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED
	 * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
	 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN
	 * NO EVENT SHALL CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
	 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
	 * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS
	 * OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
	 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
	 * TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
	 * USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
	 * DAMAGE.
	 *
	 * @category
	 * @package     Services_JSON
	 * @author      Michal Migurski <mike-json@teczno.com>
	 * @author      Matt Knapp <mdknapp[at]gmail[dot]com>
	 * @author      Brett Stimmerman <brettstimmerman[at]gmail[dot]com>
	 * @author      Christoph Dorn <christoph@christophdorn.com>
	 * @copyright   2005 Michal Migurski
	 * @version     CVS: $Id: JSON.php,v 1.31 2006/06/28 05:54:17 migurski Exp $
	 * @license     http://www.opensource.org/licenses/bsd-license.php
	 * @link        http://pear.php.net/pepr/pepr-proposal-show.php?id=198
	 */
	
	
	/**
	 * Keep a list of objects as we descend into the array so we can detect recursion.
	 */
	private $json_objectStack = array();
	
	
	/**
	 * convert a string from one UTF-8 char to one UTF-16 char
	 *
	 * Normally should be handled by mb_convert_encoding, but
	 * provides a slower PHP-only method for installations
	 * that lack the multibye string extension.
	 *
	 * @param    string  $utf8   UTF-8 character
	 * @return   string  UTF-16 character
	 * @access   private
	 */
	private function json_utf82utf16($utf8)
	{
		// oh please oh please oh please oh please oh please
		if(function_exists('mb_convert_encoding')) {
			return mb_convert_encoding($utf8, 'UTF-16', 'UTF-8');
		}
		
		switch(strlen($utf8)) {
			case 1:
				// this case should never be reached, because we are in ASCII range
				// see: http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
				return $utf8;
			
			case 2:
				// return a UTF-16 character from a 2-byte UTF-8 char
				// see: http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
				return chr(0x07 & (ord($utf8{0}) >> 2))
					. chr((0xC0 & (ord($utf8{0}) << 6))
						| (0x3F & ord($utf8{1})));
			
			case 3:
				// return a UTF-16 character from a 3-byte UTF-8 char
				// see: http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
				return chr((0xF0 & (ord($utf8{0}) << 4))
						| (0x0F & (ord($utf8{1}) >> 2)))
					. chr((0xC0 & (ord($utf8{1}) << 6))
						| (0x7F & ord($utf8{2})));
		}
		
		// ignoring UTF-32 for now, sorry
		return '';
	}
	
	/**
	 * encodes an arbitrary variable into JSON format
	 *
	 * @param    mixed   $var    any number, boolean, string, array, or object to be encoded.
	 *                           see argument 1 to Services_JSON() above for array-parsing behavior.
	 *                           if var is a strng, note that encode() always expects it
	 *                           to be in ASCII or UTF-8 format!
	 *
	 * @return   mixed   JSON string representation of input var or an error if a problem occurs
	 * @access   public
	 */
	private function json_encode($var)
	{
		
		if(is_object($var)) {
			if(in_array($var,$this->json_objectStack)) {
				return '"** Recursion **"';
			}
		}
		
		switch (gettype($var)) {
			case 'boolean':
				return $var ? 'true' : 'false';
			
			case 'NULL':
				return 'null';
			
			case 'integer':
				return (int) $var;
			
			case 'double':
			case 'float':
				return (float) $var;
			
			case 'string':
				// STRINGS ARE EXPECTED TO BE IN ASCII OR UTF-8 FORMAT
				$ascii = '';
				$strlen_var = strlen($var);
				
				/*
				 * Iterate over every character in the string,
				 * escaping with a slash or encoding to UTF-8 where necessary
				 */
				for ($c = 0; $c < $strlen_var; ++$c) {
					
					$ord_var_c = ord($var{$c});
					
					switch (true) {
						case $ord_var_c == 0x08:
							$ascii .= '\b';
							break;
						case $ord_var_c == 0x09:
							$ascii .= '\t';
							break;
						case $ord_var_c == 0x0A:
							$ascii .= '\n';
							break;
						case $ord_var_c == 0x0C:
							$ascii .= '\f';
							break;
						case $ord_var_c == 0x0D:
							$ascii .= '\r';
							break;
						
						case $ord_var_c == 0x22:
						case $ord_var_c == 0x2F:
						case $ord_var_c == 0x5C:
							// double quote, slash, slosh
							$ascii .= '\\'.$var{$c};
							break;
						
						case (($ord_var_c >= 0x20) && ($ord_var_c <= 0x7F)):
							// characters U-00000000 - U-0000007F (same as ASCII)
							$ascii .= $var{$c};
							break;
						
						case (($ord_var_c & 0xE0) == 0xC0):
							// characters U-00000080 - U-000007FF, mask 110XXXXX
							// see http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
							$char = pack('C*', $ord_var_c, ord($var{$c + 1}));
							$c += 1;
							$utf16 = $this->json_utf82utf16($char);
							$ascii .= sprintf('\u%04s', bin2hex($utf16));
							break;
						
						case (($ord_var_c & 0xF0) == 0xE0):
							// characters U-00000800 - U-0000FFFF, mask 1110XXXX
							// see http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
							$char = pack('C*', $ord_var_c,
									ord($var{$c + 1}),
									ord($var{$c + 2}));
							$c += 2;
							$utf16 = $this->json_utf82utf16($char);
							$ascii .= sprintf('\u%04s', bin2hex($utf16));
							break;
						
						case (($ord_var_c & 0xF8) == 0xF0):
							// characters U-00010000 - U-001FFFFF, mask 11110XXX
							// see http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
							$char = pack('C*', $ord_var_c,
									ord($var{$c + 1}),
									ord($var{$c + 2}),
									ord($var{$c + 3}));
							$c += 3;
							$utf16 = $this->json_utf82utf16($char);
							$ascii .= sprintf('\u%04s', bin2hex($utf16));
							break;
						
						case (($ord_var_c & 0xFC) == 0xF8):
							// characters U-00200000 - U-03FFFFFF, mask 111110XX
							// see http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
							$char = pack('C*', $ord_var_c,
									ord($var{$c + 1}),
									ord($var{$c + 2}),
									ord($var{$c + 3}),
									ord($var{$c + 4}));
							$c += 4;
							$utf16 = $this->json_utf82utf16($char);
							$ascii .= sprintf('\u%04s', bin2hex($utf16));
							break;
						
						case (($ord_var_c & 0xFE) == 0xFC):
							// characters U-04000000 - U-7FFFFFFF, mask 1111110X
							// see http://www.cl.cam.ac.uk/~mgk25/unicode.html#utf-8
							$char = pack('C*', $ord_var_c,
									ord($var{$c + 1}),
									ord($var{$c + 2}),
									ord($var{$c + 3}),
									ord($var{$c + 4}),
									ord($var{$c + 5}));
							$c += 5;
							$utf16 = $this->json_utf82utf16($char);
							$ascii .= sprintf('\u%04s', bin2hex($utf16));
							break;
					}
				}
				
				return '"'.$ascii.'"';
			
			case 'array':
				/*
				 * As per JSON spec if any array key is not an integer
				 * we must treat the the whole array as an object. We
				 * also try to catch a sparsely populated associative
				 * array with numeric keys here because some JS engines
				 * will create an array with empty indexes up to
				 * max_index which can cause memory issues and because
				 * the keys, which may be relevant, will be remapped
				 * otherwise.
				 *
				 * As per the ECMA and JSON specification an object may
				 * have any string as a property. Unfortunately due to
				 * a hole in the ECMA specification if the key is a
				 * ECMA reserved word or starts with a digit the
				 * parameter is only accessible using ECMAScript's
				 * bracket notation.
				 */
				
				// treat as a JSON object
				if (is_array($var) && count($var) && (array_keys($var) !== range(0, sizeof($var) - 1))) {
					
					$this->json_objectStack[] = $var;
					
					$properties = array_map(array($this, 'json_name_value'),
							array_keys($var),
							array_values($var));
					
					array_pop($this->json_objectStack);
					
					foreach($properties as $property) {
						if($property instanceof Exception) {
							return $property;
						}
					}
					
					return '{' . join(',', $properties) . '}';
				}
				
				$this->json_objectStack[] = $var;
				
				// treat it like a regular array
				$elements = array_map(array($this, 'json_encode'), $var);
				
				array_pop($this->json_objectStack);
				
				foreach($elements as $element) {
					if($element instanceof Exception) {
						return $element;
					}
				}
				
				return '[' . join(',', $elements) . ']';
			
			case 'object':
				$vars = self::encodeObject($var);
				
				$this->json_objectStack[] = $var;
				
				$properties = array_map(array($this, 'json_name_value'),
						array_keys($vars),
						array_values($vars));
				
				array_pop($this->json_objectStack);
				
				foreach($properties as $property) {
					if($property instanceof Exception) {
						return $property;
					}
				}
				
				return '{' . join(',', $properties) . '}';
			
			default:
				return null;
		}
	}
	
	/**
	 * array-walking function for use in generating JSON-formatted name-value pairs
	 *
	 * @param    string  $name   name of key to use
	 * @param    mixed   $value  reference to an array element to be encoded
	 *
	 * @return   string  JSON-formatted name-value pair, like '"name":value'
	 * @access   private
	 */
	private function json_name_value($name, $value)
	{
		// Encoding the $GLOBALS PHP array causes an infinite loop
		// if the recursion is not reset here as it contains
		// a reference to itself. This is the only way I have come up
		// with to stop infinite recursion in this case.
		if($name=='GLOBALS'
				&& is_array($value)
				&& array_key_exists('GLOBALS',$value)) {
			$value['GLOBALS'] = '** Recursion **';
		}
		
		$encoded_value = $this->json_encode($value);
		
		if($encoded_value instanceof Exception) {
			return $encoded_value;
		}
		
		return $this->json_encode(strval($name)) . ':' . $encoded_value;
	}
}